home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00421_forward arrow.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.3 KB  |  51 lines
  1. property ancestor, pLabelList
  2. global gCurrLabel, gTourBackArrow
  3.  
  4. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  5.   if objectp(descendant) then
  6.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  7.   else
  8.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  9.   end if
  10.   pLabelList = MakeLabelList()
  11.   return me
  12. end
  13.  
  14. on performFunction me
  15.   global IconList1, IconList2, CreditList, gTourForwardArrow, firstTime
  16.   sound stop 1
  17.   sprite(7).visible = 1
  18.   firstTime = 1
  19.   if marker(0) = label("Navigation") then
  20.     repeat with X = 6 to 13
  21.       iconObj = getaProp(IconList1, X)
  22.       outScope(iconObj)
  23.     end repeat
  24.   end if
  25.   if marker(0) = label("3.3") then
  26.     repeat with X = 5 to 12
  27.       iconObj = getaProp(IconList2, X)
  28.       outScope(iconObj)
  29.     end repeat
  30.   end if
  31.   if marker(0) = label("Credits") then
  32.     repeat with X = 5 to 7
  33.       creditObj = getaProp(CreditList, X)
  34.       outScope(creditObj)
  35.     end repeat
  36.   end if
  37.   ResetForVideo()
  38.   UnPuppetSprites()
  39.   outScope(gTourBackArrow)
  40.   outScope(me._me)
  41.   CurrPosition = getPos(pLabelList, gCurrLabel)
  42.   NextLabel = getAt(pLabelList, CurrPosition + 1)
  43.   Char1 = char 1 of NextLabel
  44.   if not integerp(integer(Char1)) then
  45.     NextLabel = "TMenu"
  46.   end if
  47.   updateStage()
  48.   go(NextLabel)
  49.   return me
  50. end
  51.